home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / util / misc / PHN_CD39.lha / ComDizZ / rexx / ComDizZ.dopus
Text File  |  1995-08-06  |  8KB  |  35 lines
  1. /*@BEGIN_FILE_ID.DIZ
  2.          ________  ___  ___  ___  ___  ___
  3.      [/]/  _____ \/ _ \/ _ \/  / / _ \/ _ \
  4.        /\_ \  /  / ___/ ___/  /_/ ___/__/_/
  5.  ____ /  /  \/  / /  / /  /  / / /  / \  \
  6. (    \\_____/\__\___/\___/\___/\___/__/\__\a
  7. |  ·  )__ ___________)  (_____ ________  _ n
  8. | ___/ l \) . ()    (_  _) . ((  __  ) \/( d
  9. |  (     /     \  |  |  /     /\_  \/     \
  10. |   \_l_/   l___)_l__l_/   l_(_____/   \/\_)
  11. l____)-(_____)-bRiNg- (_____)-ppx-(_____)---
  12.  
  13.   $VER: ComDIzZ V3.9 - FDIZ->FCOM converter
  14.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  15.    to build in DOPUS4 make an AREXXButton : 
  16.  
  17. do: ComDizZ.dopus [INTERACTIVE] [NODIZED] [DATECHECK]
  18. or: ComDizZ.dopus [MAKELIST]
  19.  
  20. synopsis: interactive/s,nodized/s,makelist/s,datecheck/s
  21.      ->  Read the guide for more information!  <-
  22.  
  23. @END_FILE_ID.DIZ*/
  24. parse UPPER ARG INTER NODIZED DATECHECK
  25.  
  26. /* PREFERENCES: PLEASE EDIT THIS ONLY !
  27. -------------------------------------------------------------------------------*/
  28. lhapath="c:lha"         /* this is the path where LHA should be                */
  29. dizpath="c:Diz-Ed"     /* this is the path and name where DizEd2.1 should be   */
  30. cpath="c:"            /* path for your system c: files (snatchdiz,date...etc.) */
  31. logpath="s:"         /* path where the log-files for DATECHECK should go       */
  32. /*-----------------------------------------------------------------------------
  33.    END OF PREFERENCES                                                          */
  34.  
  35. options results;busy on;dopustofront;checkabort;if INTER="INTERACTIVE" then INTER=1;if INTER="MAKELIST" then MAKE=1;if INTER="DATECHECK" then DCHECK=1;if NODIZED="NODIZED" then NODIZED=1;if NODIZED="DATECHECK" then DCHECK=1;if DATECHECK="DATECHECK" then DCHECK=1;remember;firstfilename=' working...';comcount=0;lI='0a'x;str.6='"6 | mArvelOus pIEce of wOrk! |"';l='39'x;IIl='535445454C4552'X;str.4='"4 | CoMe tO tHe phanTasm WWW |"';lll= '3E3E20436F6D44697A5A2D56332E'X||l||'20A960393520'X||IIl'2F7068616E5461736D203C3C'X;str.3='"3 |   JuSt a qUIck messAge:  |"';str.9='"9 `--------------------------''"';str.5='"5 |pAges! anD sEE who diD diZ|"';str.1='"1 |ComDizZ V3."'||l||'" © "'||IIl||'"-PHN|"';lIl= '436F6D44697A5A2D56332E'X||l||'20A960393520'X||IIl'2F70686E0A7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E0A'X;str.8='"8 | ->    /PHN/phn.html   <- |"';str.2='"2 |~~~~~~~~~~~~~~~~~~~~~~~~~~|"';status 3;window=result;status 13 window;firstfiledir=result;fifidi=compress(firstfiledir,'/: ');comfile=logpath||'!CDlDir-'||fifidi;restore;if MAKE=1 then;do;firstfilename='Making Indexfile...';count='one dir!';call testabbo;address command 'list >"'||firstfiledir||'!index" "'||firstfiledir||'~(#?.info|!index)" files lformat "%s: %c"';address command 'sort "'||firstfiledir||'!index" "'||firstfiledir||'!index"';address command 'filenote >nil: "'||firstfiledir||'!index" "IndexFile by: '||lll'"';busy off;rescan;exit 0;end;if DCHECK=1 then ;do;if open('lasttime',comfile,'read') then ;do;ComLast=readln('lasttime');close('lasttime');end;if lasttime="" then lasttime="01-Jan-1978 00:00:00";comlast=right(comlast,18)||" >";remember;modify DateFormat 1;'SELECT "'||comlast||'" onlyfiles date';restore;end;status 9 window;COUNT=result;if COUNT=0 then ;do;dope= lIl||'You Dork! - You forgot to'lI'select a file!'lI;head= "'-=> I`m such a horse! <=-'";butt= "'-=> Ohhhh...so sorry! <=-'";if DCHECK=1 then ;do;dope= lIl||'Sorry - No new files found!'lI;head= "'-=> ComDizZ, you made it! <=-'";butt= "'-=> I guessed there were some! <=-'";end;beep;call output;exit 0;end;call outway;address command 'resident >nil: "'||cpath||'snatchdiz" pure';address command 'resident >nil: "'||cpath||'filenote" pure';address command 'resident >nil: "'||cpath||'delete" pure';address command 'resident >nil: "'||cpath||'date" pure';address command 'resident >nil: "'||lhapath||'" pure';;do until master=1;getnextselected;firstfilename=result;call testabbo;address command 'snatchdiz >T:'||IIl||'.DIZ "'||firstfiledir||firstfilename||'" S';f=0;bong=0;skipper=0;dope="";head="";butt="";all="";call testabbo;if open('fileid','T:'||IIl||'.DIZ','read') then;do until eof('fileid');zeile.f=readln('fileid');all=all||zeile.f||' ';f=f+1;end;close('fileid');all=compress(all,'"´`''ªºð£¶¤þ¡¯%&$§()[]¬!Ц~/\|_<>{}-[]¹@³°¼½¾·«»-=.:#^+*,¸;÷®Å£Ø¥ø¿µ;; ');all=space(all,1);if length(firstfilename)~=length(space(firstfilename,0)) then;do;dope= lIl||'ERROR on file:'firstfilename||lI'The file cannot be opened !'lI'SnatchDiz can`t handle filenames with SPACES !'lI;head= '"I`ll rename it!"';butt= '"I`ll rename it!"';beep;call output;bong=1;end;if substr(all,7,6)="Snatch" then;do;dope= lIl||'ERROR on file:'firstfilename||lI'The file cannot be opened !'lI'Filename probably contains illegal chars !'lI;head= '"I`ll rename it!"';butt= '"I`ll rename it!"';beep;call output;call inway;exit 0;end;if left(all,19)="Cant lockopen file" then;do;dope= lIl||'OH NOOOO!'lI'ERROR: Is this a FILE or a DIR?'lI;head= '"Sorry - this is my first try!"';butt= '"Mi djast a damp, horni nabsaker !"';beep;call output;bong=1;end;call testabbo;if all="RESULT" then bong=1;busy on;if bong=0 then;do;if all= "No fileiddiz available" then;do;if INTER=1 then;do;dope= lIl||'No File_ID.DIZ available...'lI'Paint one with DIZ-ED!'lI;head= '"Please continue..."';butt= '"Load Diz-Ed !"';if NODIZED=1 then;do;butt= '"Continue, please..."';skp=1;end;call output;busy on;if tst=0 then;do;if skp~=1 then do;address command '"'||dizpath||'" "'||firstfiledir||firstfilename||'"';address command 'wait 3 sec';do until ~show('P','REXX_DIZ-Ed');skipper=1;end;end;end;end;bong=1;end;if bong=0 then;do;if INTER=1 then;do;getstring '"ComDizZ - `95 "'||IIl||'"/phn - 80 chars limit! Enter Comment:"' '"'all'"';all=result ;end;all=strip(left(delstr(all,1,0),79));address command 'filenote >nil: "'||firstfiledir||firstfilename||'" "'all'"';comcount=comcount+1;if DCHECK=1 then call makefile;end;end;address command 'delete >NIL: T:'||IIl||'.DIZ';call testabbo;if skipper~=1 then;do;selectfile '"'firstfilename'"' 0 1;displaydir;query updateflags;follow=bittst(d2c(result),1);if follow then scrolltoshow '"'firstfilename'"';status 9 window;COUNT=result;if COUNT=0 then master=1;end;end;busy off ;restore;call inway;exit 0;outway:;busy on;str.7='"7 |HTTP://134.28.37.10/~frank|"';otherwindow;str.0='"0 .--------------------------."' ;do i=0 to 9;addfile str.i  '' '' '' '' 0 1;end;displaydir;scrolltoshow str.0;otherwindow;return;inway:;address command 'resident >nil: "'||cpath||'snatchdiz" remove';address command 'resident >nil: "'||cpath||'filenote" remove';address command 'resident >nil: "'||cpath||'delete" remove';address command 'resident >nil: "'||cpath||'date" remove';address command 'resident >nil: "'||lhapath||'" remove';otherwindow;busy on;do i=0 to 9;removefile str.i 1;end;otherwindow;rescan;return;output:;remember;status 26;old_okay=result;status 27;old_cancel=result;status 26 set head;status 27 set butt;busy on;request dope;tst=result;status 26 set old_okay;status 27 set old_cancel;restore;return;testabbo:;busy on;toptext lll||' tO gO: '||count||' sTATUS: '||firstfilename;checkabort;ab=result;if ab=1 then;do;dope= lIl||'Quit? Now? Really? Sure? 100%?'lI;head= '"Yes, a 100%"';butt= '"Nope... Continue!"';call output;busy on;if tst=1 then ;do;call inway;exit 0;end;end;return;makefile:;address command 'date >"'||comfile||'"';address command 'filenote >nil: "'||comfile||'" "Last time 'comcount' file/s were ComDizZed succesfully! ©STEELER/phanTasm`95"';return;